Fortran 类型扩展

当已经定义了一个 vec2 类型时，可以扩展：

type, extends(vec2) :: vec3
  real :: z
end type vec3